home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35604.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  56 lines
  1. ;=============356.04 Bolzen 6z
  2.  
  3. (EAITDBL "0035604")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35604v1 ( / P1 Wi)
  8.      (EAITDBL "0035604")
  9.      (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (EAITbpt nil nil nil)
  13.      (setq P1 (getpoint))
  14.      (if (= P1 nil)(setq P1 (EAITrpt)))
  15.      (setvar "ORTHOMODE" 1)
  16.      (setvar "OSMODE" 0)
  17.      (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  18.      (command EAITege (strcat EAITpfn "35604v1") P1 "" "" EAITofkei pause)
  19.  
  20.      (setq Wi (EAITbw))
  21.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 14.03)) 10.51) "" "" ""
  22.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  23.      )
  24.  
  25.      (EAITvarz2)
  26.      (princ)
  27.  
  28. );defun 35604v1
  29.  
  30.  
  31.  
  32. (defun C:35604d1 ( / P1 Wi)
  33.      (EAITDBL "0035604")
  34.      (princ (strcat "\n\n" EAITbez1))
  35.      (EAITvari)
  36.      (EAITvars)
  37.      (EAITbpt nil nil nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "ORTHOMODE" 1)
  41.      (setvar "OSMODE" 0)
  42.      (command EAITege (strcat EAITpfn "35604d1") P1 "" "" "")
  43.  
  44.      (setq Wi (EAITbw))
  45.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 48.82)) 4.57) "" "" ""
  46.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  47.      )
  48.  
  49.      (EAITvarz2)
  50.      (princ)
  51.  
  52. );defun 35604d1
  53.  
  54.  
  55. (princ)
  56.